home *** CD-ROM | disk | FTP | other *** search
/ Aminet 24 / Aminet 24 (1998)(GTI - Schatztruhe)[!][Apr 1998].iso / Aminet / dev / c / AmiVoGL_MDEV.lha / examples / ftrivial.for < prev    next >
Text File  |  1991-06-03  |  1KB  |  68 lines
  1.     program ftrivial
  2.  
  3. $INCLUDE: 'fvogl.h'
  4. $INCLUDE: 'fvodevic.h'
  5.  
  6. c 
  7. c  the basic test program for a driver if we can draw a line and do
  8. c  hardware text we are almost there!
  9. c
  10.     integer*2 val
  11.  
  12. c
  13. c  Open a window (or just the screen in some cases)
  14. c
  15.     call winope('trivial', 7)
  16. c
  17. c  We want to know about keyboard hits....
  18. c
  19.     call qdevic(INPUTC)
  20.     call qdevic(KEYBD)
  21. c
  22. c  we want our coordinate system to run from -1 to 1 in x and y
  23. c
  24.     call ortho2(-1.0, 1.0, -1.0, 1.0)
  25. c
  26. c  set current color to black 
  27. c
  28.     call color(BLACK)
  29. c
  30. c  clear to current color
  31. c
  32.     call clear
  33. c
  34. c  we want to draw in green 
  35. c
  36.     call color(GREEN)
  37. c
  38. c  draw a horizontal line at y = 0 
  39. c
  40.     call move2(-1.0, 0.0)
  41.     call draw2(1.0, 0.0)
  42. c
  43. c  pause for some input 
  44. c
  45.     i = qread(val)
  46. c
  47. c  draw a line along x = 0 
  48. c
  49.     call move2(0.0, 0.0)
  50.     call draw2(0.0, 1.0)
  51. c
  52. c  move text position to the middle of the screen 
  53. c
  54.     call cmov2(0.0, 0.0)
  55. c
  56. c  draw 'Hello' starting at the origin 
  57. c
  58.     call charst('Hello', 5)
  59. c
  60. c  pause again 
  61. c
  62.     idum = qread(val)
  63. c
  64. c  set screen back to original state 
  65. c
  66.     call gexit
  67.     end
  68.